GetTime procedure

  DECLARATION:  GetTime(var Hour, Minute, Second, Sec100 : Word);

      PURPOSE:  Returns the current time from the Operating System

         UNIT:  DOS

      REMARKS:  Returned values will be in the ranges:

                                Hour   = 0..23
                                Minute = 0..59
                                Second = 0..59
                                Sec100 = 0..99